Public Class SharePointDialect
    Inherits NHibernate.Dialect.Dialect

    Public Sub New()
        MyBase.New()
    End Sub

    Private _Functions As Generic.IDictionary(Of String, Dialect.Function.ISQLFunction)

    Public Overrides ReadOnly Property Functions() As System.Collections.Generic.IDictionary(Of String, Dialect.Function.ISQLFunction)
        Get
            If _Functions Is Nothing Then
                _Functions = New Generic.Dictionary(Of String, Dialect.Function.ISQLFunction)
            End If
            Return _Functions
        End Get
    End Property

End Class
